home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Lists Lingo.dir / Scripts_64_getPos(aLinearList).ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  502 b   |  14 lines
  1. on mouseDown
  2.   global gDefaultLinearList
  3.   doButton()
  4.   set vListPosition to the text of member "Checking Linear GetOne Input Field 2"
  5.   set vListPosition to stripSpaces(vListPosition)
  6.   set vListPosition to checkValue(vListPosition)
  7.   if vListPosition <> EMPTY then
  8.     if ilk(gDefaultLinearList, #linearList) then
  9.       set vGottenValue to string(getPos(gDefaultLinearList, vListPosition))
  10.       set the text of member "Checking Linear GetOne Display Field 3" to vGottenValue
  11.     end if
  12.   end if
  13. end
  14.